home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / ddutil20.arc / DDUTILS.DOC next >
Text File  |  1991-05-14  |  6KB  |  173 lines
  1.  
  2.  
  3.  
  4.                           DDUTILS v1.20 (08/23/1990)
  5.  
  6.                      By John Richardson & Dan Vanderboom
  7.                         A Product of TopSoft Software
  8.  
  9.                This program is placed in to The Public Domain on
  10.                      August 20, 1990, by John Richardson
  11.  
  12.  
  13. ===============================================================================
  14.  
  15.                If there are any questions, you may contact us at:
  16.  
  17.                             TopSoft Software
  18.                             2135 Possum Ct.
  19.                             Brookfield, Wi 53045
  20.                         (414) 796-8408 - Data 12/24
  21.  
  22.  
  23. ===============================================================================
  24.  
  25.  
  26. Disclaimer
  27. ==========
  28. You are using this program at your own risk.  Neither the authors nor
  29. TopSoft Support Systems is responsible for any damages as a result of
  30. use, misuse, or failure to perform on the part of this program.
  31.  
  32.  
  33.  
  34.  
  35. What is DDUTILS?
  36. ================
  37. DDUtils is a small Turbo Pascal unit designed for DoubleDOS applications.
  38. This should improve your programs to have a DoubleDOS awareness so you
  39. know when to use direct screen writes, etc.
  40.  
  41. It contains 14 procedures/functions pertaining to DoubleDOS.
  42.  
  43.  
  44.  
  45.  
  46.  
  47. How to use DDUTILS
  48. ==================
  49. The following 16 procedures/functions are described below:
  50.  
  51. ==============================================================================
  52. Function DDActive:Boolean;
  53.  
  54. DDActive returns TRUE when DoubleDOS is active.
  55.  
  56. ==============================================================================
  57. Function Invisible:Boolean;
  58.  
  59. Invisible returns TRUE if the caller is in the invisible parition.
  60.  
  61. ==============================================================================
  62. Procedure Task_On;
  63.  
  64. Turns the tasking switch on.
  65.  
  66. ==============================================================================
  67. Procedure Task_Off;
  68.  
  69. Turns the tasking switch off.
  70.  
  71. ==============================================================================
  72. Procedure Give_Time(Amount:Integer);
  73.  
  74. Give up time under DoubleDOS.  Amount is the amount of 55msec time slices
  75. that are given away.  This routine should be used in delays/loops.
  76.  
  77. ==============================================================================
  78. Procedure Switch;
  79.  
  80. This procedure exchanges visible and invisible tasking status.
  81.  
  82. ==============================================================================
  83. Procedure Resume_Invisible;
  84.  
  85. This procedure resumes an invisible job if it has been suspended
  86.  
  87. ==============================================================================
  88. Procedure Kill_Other_Job;
  89.  
  90. This procedure will kill the other job in the other paritition.
  91.  
  92. ==============================================================================
  93. Procedure Suspend_Invisible;
  94.  
  95. This will suspend the invisible job.
  96.  
  97. ==============================================================================
  98. Procedure Clear_KeyBoard_Buffer;
  99.  
  100. This call will reset the keyoboard buffer to empty for the calling program
  101. only.  This call does not clear the standard input buffer if it is not the
  102. keyboard.
  103.  
  104. ==============================================================================
  105. Function Send_Char(Ch:Char):Boolean;
  106.  
  107. Send ascii character (ch) to the other keyboard buffer.  This call allows
  108. a program to give keyboard input to another program, or to start another
  109. program in the other memory section.  Send_Char will return true if transfer
  110. is sucessful, otherwise it will return false.  Keyboard buffers will hold
  111. 128 characters max.
  112.  
  113. ==============================================================================
  114. Function Program_Status:Integer;
  115.  
  116. Return the current program status:
  117.  
  118. If Program_Status = 1 Then Current Program is Visible
  119. If Program_Status = 2 Then Current Program is Invisibile
  120. If Program_Status = 3 Then Current Program is Suspended
  121.  
  122. ==============================================================================
  123. Function Task_Number:Integer;
  124.  
  125. Returns what parition you are currently in.
  126.  
  127. If Task_Number = 0 Then You are in the top paritition
  128. If Task_Number = 1 Then You are in the bottom partition
  129.  
  130. ==============================================================================
  131. Function Other_Status:Integer;
  132.  
  133. Return other program status.
  134.  
  135. If Other_Status = 0 Then No program is running
  136. If Other_Status = 1 Then Program is running
  137. If Other_Status = 2 Then Program is suspended
  138.  
  139. ==============================================================================
  140. Procedure Time_Sharing(Num:Integer);
  141.  
  142. If Num = 0 then Visible program gets 70% invisible gets 30% (default)
  143. If Num = 1 then Visible program gets 50% invisible gets 50% of time
  144. If Num = 2 then Visible program gets 30% invisible gets 70% of time
  145. If Num = 3 then Top program gets 70% bottom program gets 30% of time
  146. If Num = 4 then Top program gets 30% bottom program gets 70% of time
  147.  
  148. ==============================================================================
  149. Function Current_TimeShare:Integer;
  150.  
  151. This function tells you what the current priority of timesharing is set to.
  152. You can set timesharing priorities by using the Time_Sharing function.
  153. The following numbers are what this function will return.
  154.  
  155. 0 = Visible program gets 70% invisible gets 30% (default)
  156. 1 = Visible program gets 50% invisible gets 50% of time
  157. 2 = Visible program gets 30% invisible gets 70% of time
  158. 3 = Top program gets 70% bottom program gets 30% of time
  159. 4 = Top program gets 30% bottom program gets 70% of time
  160.  
  161. ==============================================================================
  162.  
  163.  
  164. This source code will compile under Borland's Turbo Pascal 5 or 5.5,
  165. Copyright (C) 1987, 1989 Borland International, Inc.
  166.  
  167.  
  168. If you feel truthful, and would like to donate $5.00, please do.  The
  169. address is at the top of this document.  Also, when using these routines
  170. please give me some credit in your final documents.  It is not necessary,
  171. but it would be nice.
  172.  
  173.